home *** CD-ROM | disk | FTP | other *** search
/ Remax Data / Remax Porfolio Data 15 Jul 1994 CD-ROM.ISO / fp26_rmx / notice.spr < prev    next >
Encoding:
Text File  |  1994-07-09  |  6.9 KB  |  190 lines
  1. *       *********************************************************
  2. *       *                                                         
  3. *       * 06/20/94             NOTICE.SPR                18:30:18 
  4. *       *                                                         
  5. *       *********************************************************
  6. *       *                                                         
  7. *       * Author's Name                                           
  8. *       *                                                         
  9. *       * Copyright (c) 1994 Company Name                         
  10. *       * Address                                                 
  11. *       * City,     Zip                                           
  12. *       *                                                         
  13. *       * Description:                                            
  14. *       * This program was automatically generated by GENSCRN.    
  15. *       *                                                         
  16. *       *********************************************************
  17.  
  18.  
  19. #REGION 0
  20. REGIONAL m.currarea, m.talkstat, m.compstat
  21.  
  22. IF SET("TALK") = "ON"
  23.     SET TALK OFF
  24.     m.talkstat = "ON"
  25. ELSE
  26.     m.talkstat = "OFF"
  27. ENDIF
  28. m.compstat = SET("COMPATIBLE")
  29. SET COMPATIBLE FOXPLUS
  30.  
  31. m.rborder = SET("READBORDER")
  32. SET READBORDER ON
  33.  
  34. m.currarea = SELECT()
  35.  
  36.  
  37. *       *********************************************************
  38. *       *                                                         
  39. *       *               Windows Window definitions                
  40. *       *                                                         
  41. *       *********************************************************
  42. *
  43.  
  44. IF NOT WEXIST("notice") ;
  45.     OR UPPER(WTITLE("NOTICE")) == "NOTICE.PJX" ;
  46.     OR UPPER(WTITLE("NOTICE")) == "NOTICE.SCX" ;
  47.     OR UPPER(WTITLE("NOTICE")) == "NOTICE.MNX" ;
  48.     OR UPPER(WTITLE("NOTICE")) == "NOTICE.PRG" ;
  49.     OR UPPER(WTITLE("NOTICE")) == "NOTICE.FRX" ;
  50.     OR UPPER(WTITLE("NOTICE")) == "NOTICE.QPR"
  51.     DEFINE WINDOW notice ;
  52.         AT  11.417, 9.750  ;
  53.         SIZE 7.538,85.800 ;
  54.         TITLE "SPECIAL NOTICE" ;
  55.         FONT "MS Sans Serif", 8 ;
  56.         FLOAT ;
  57.         NOCLOSE ;
  58.         MINIMIZE ;
  59.         SYSTEM
  60.     MOVE WINDOW notice CENTER
  61. ENDIF
  62.  
  63.  
  64. *       *********************************************************
  65. *       *                                                         
  66. *       *          NOTICE/Windows Setup Code - SECTION 2          
  67. *       *                                                         
  68. *       *********************************************************
  69. *
  70.  
  71. #REGION 1
  72. DO INTRO.SPR
  73. =SYS(2002)
  74.  
  75. *       *********************************************************
  76. *       *                                                         
  77. *       *              NOTICE/Windows Screen Layout               
  78. *       *                                                         
  79. *       *********************************************************
  80. *
  81.  
  82. #REGION 1
  83. IF WVISIBLE("notice")
  84.     ACTIVATE WINDOW notice SAME
  85. ELSE
  86.     ACTIVATE WINDOW notice NOSHOW
  87. ENDIF
  88. @ 1.000,2.400 SAY "All Information contained in the CD Roster is provided by RE/MAX Sales Associates." + CHR(13) + ;
  89.         "Althought this information is believed to be reliable, neither RE/MAX International Inc.," + CHR(13) + ;
  90.         "nor its regions have independently verified the accuracy of such information and" + CHR(13) + ;
  91.         "" ;
  92.     SIZE 3.000,81.200, 0.000 ;
  93.     FONT "MS Sans Serif", 8 ;
  94.     STYLE "T"
  95. @ 4.077,2.400 SAY "are not responsible or liable for any misinformation or inaccuracies." ;
  96.     FONT "MS Sans Serif", 8 ;
  97.     STYLE "T"
  98. @ 5.615,27.600 SAY "PRESS ANY KEY TO CONTINUE" ;
  99.     FONT "MS Sans Serif", 8 ;
  100.     STYLE "T"
  101.  
  102. IF NOT WVISIBLE("notice")
  103.     ACTIVATE WINDOW notice
  104. ENDIF
  105.  
  106. READ CYCLE ;
  107.     WHEN _qr113nvps() ;
  108.     ACTIVATE _qr113nvpw() ;
  109.     DEACTIVATE _qr113nvpx()
  110.  
  111. RELEASE WINDOW notice
  112. SELECT (m.currarea)
  113.  
  114.  
  115. #REGION 0
  116.  
  117. SET READBORDER &rborder
  118.  
  119. IF m.talkstat = "ON"
  120.     SET TALK ON
  121. ENDIF
  122. IF m.compstat = "ON"
  123.     SET COMPATIBLE ON
  124. ENDIF
  125.  
  126.  
  127. *       *********************************************************
  128. *       *                                                         
  129. *       * _QR113NVPS           Read Level When                    
  130. *       *                                                         
  131. *       * Function Origin:                                        
  132. *       *                                                         
  133. *       *                                                         
  134. *       * From Platform:       Windows                            
  135. *       * From Screen:         NOTICE                             
  136. *       * Called By:           READ Statement                     
  137. *       * Snippet Number:      1                                  
  138. *       *                                                         
  139. *       *********************************************************
  140. *
  141. FUNCTION _qr113nvps     && Read Level When
  142. *
  143. * When Code from screen: NOTICE
  144. *
  145. #REGION 1
  146. ON KEY LABEL ENTER CLEAR READ
  147. ON KEY LABEL ENTER
  148.  
  149. *       *********************************************************
  150. *       *                                                         
  151. *       * _QR113NVPW           Read Level Activate                
  152. *       *                                                         
  153. *       * Function Origin:                                        
  154. *       *                                                         
  155. *       *                                                         
  156. *       * From Platform:       Windows                            
  157. *       * From Screen:         NOTICE                             
  158. *       * Called By:           READ Statement                     
  159. *       * Snippet Number:      2                                  
  160. *       *                                                         
  161. *       *********************************************************
  162. *
  163. FUNCTION _qr113nvpw     && Read Level Activate
  164. *
  165. * Activate Code from screen: NOTICE
  166. *
  167. #REGION 1
  168. SYS(2002)
  169.  
  170.  
  171. *       *********************************************************
  172. *       *                                                         
  173. *       * _QR113NVPX           Read Level Deactivate              
  174. *       *                                                         
  175. *       * Function Origin:                                        
  176. *       *                                                         
  177. *       *                                                         
  178. *       * From Platform:       Windows                            
  179. *       * From Screen:         NOTICE                             
  180. *       * Called By:           READ Statement                     
  181. *       * Snippet Number:      3                                  
  182. *       *                                                         
  183. *       *********************************************************
  184. *
  185. FUNCTION _qr113nvpx     && Read Level Deactivate
  186. *
  187. * Deactivate Code from screen: NOTICE
  188. *
  189. #REGION 1
  190. SYS(2002, 1)